home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 August / 64er_Magazin_89-08_1989_Markt__Technik_de.d64 / irq mouse (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  811 b   |  20 lines
  1. 100 rem *****************
  2. 110 rem *** irq mouse ***
  3. 120 rem *****************
  4. 130 :
  5. 140 rem by jochen kirsch
  6. 150 :
  7. 151 data192,0,0,240,0,0,124,0,0,127,0,0,63,192,0,63,240,0,31,224,0,31,192
  8. 152 data0,15,224,0,15,240,0,6,120,0,4,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  9. 153 data0,0,0,0,0,0,0,0,0,0,0,0,1,173,0,220,170,41,1,208,10,56,173,1,208
  10. 154 data237,127,3,141,1,208,138,41,2,208,10,24,173,1,208,109,127,3,141,1
  11. 155 data208,138,41,4,208,12,56,173,0,208,237,127,3,141,0,208,144,20,138,41
  12. 156 data8,208,32,24,173,0,208,109,127,3,141,0,208,176,3,76,215,3,173,16,208
  13. 157 data41,1,240,5,73,1,76,212,3,9,1,141,16,208,76,49,234,169,1,141,21,208
  14. 158 data169,13,141,248,7,169,15,141,39,208,169,160,141,0,208,169,160,141,1
  15. 159 data208,120,169,128,141,20,3,169,3,141,21,3,88,96
  16. 160 print"irq mouse by jok
  17. 170 [153]"please wait
  18. 180 fori=0to191:readq:poke832+i,q:next
  19. 190 sys986
  20.